home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / cpx_acc / cpxbasic / beispiel / speed.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-22  |  108 b   |  8 lines
  1. 10  a=2000
  2. 20  t=PEEKL $4BA
  3. 30  FOR i=1 TO a
  4. 40    x=SIN i
  5. 50  NEXT
  6. 60  t1=PEEKL $4BA
  7. 70  PRINT t1-t
  8.